home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / ctrlkit / colorbtn.int < prev    next >
Encoding:
Text File  |  1996-09-15  |  955 b   |  35 lines
  1. unit ColorBtn;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, GraphBtn;
  8.  
  9. type
  10.   TColoredButton = class(TGraphicButton)
  11.   private
  12.     FBoldText : Boolean;
  13.     FAlignment: TAlignment;
  14.  
  15.     procedure SetAlignment(AValue : TAlignment);
  16.  
  17.   protected
  18.     function  CalcTextBounds(const ARect : TRect): TRect;
  19.     procedure DrawBtnFace(IsDown, IsDefault, IsFocused, IsNewStyle : Boolean;
  20.                           const ARect : TRect); override;
  21.     function  DrawCaption(const ARect : TRect): TRect; virtual;
  22.  
  23.   public
  24.     constructor Create(AOwner : TComponent); override;
  25.  
  26.   published
  27.     property ColorFace;
  28.     property ColorShadow;
  29.     property ColorHiLight;
  30.     property BoldFocus : Boolean read FBoldText write FBoldText default True;
  31.     property Alignment : TAlignment read FAlignment write SetAlignment default taCenter;
  32.   end;
  33.  
  34. implementation
  35. end.